Programming Languages Suite

home *** CD-ROM | disk | FTP | other *** search

/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual dBase Pro v7.0 / DATA1.CAB / Utilities / Web_Wizard / WebWizard.wfm < prev next >

Wrap

Text File | 1997-11-20 | 110.0 KB | 4,140 lines

if not file('Design.txt') msgbox('The Visual dBASE 7 Web Wizards'+chr(13)+; 'cannot be loaded from the .wfm file'+chr(13)+; 'Start the Wizards with "WebWizard.prg"',; 'Wrong File',16) return endif CLOSE ALL Set Talk Off Set Deleted On SET CUAENTER OFF Close all set proc to WebWizard.cc set proc to Program(1) addi cHome = substr(program(0),1,rat('\',program(0))) set path to &cHome f = new WebWizardForm() f.mdi = .f. // for testing purposes: f.aOptions = new array() f.cLoadPath = cHome f.Open() return // declare constants to use with page navigation array // Page navigation array is instantiated when main Wizard // button is pressed to determine ** END HEADER -- do not remove this line // // Generated on 11/20/97 // parameter bModal local f f = new WebWizardForm() if (bModal) f.mdi = false // ensure not MDI f.readModal() else f.open() endif class WebWizardForm of FORM set procedure to WIZHTML.CC additive with (this) onOpen = class::FORM_ONOPEN onClose = class::FORM_ONCLOSE open = class::FORM_OPEN readModal = class::FORM_READMODAL scaleFontSize = 8 scaleFontBold = false metric = 6 // Pixels colorNormal = "" height = 338 left = 131 top = 42 width = 478 text = "Visual dBASE 7 Web Wizards" autoCenter = true mdi = false sizeable = false escExit = false maximize = false refreshAlways = false endwith this.WIZTEMP1 = new QUERY() this.WIZTEMP1.parent = this with (this.WIZTEMP1) left = 25 top = 242 sql = 'select * from "wiztemp.dbf"' active = true endwith this.MASK = new RECTANGLE(this) with (this.MASK) left = -3 top = -2 width = 518 height = 340 metric = 6 // Pixels text = "Rectangle1" colorNormal = "WindowText/BtnFace" border = false fontName = "MS Sans Serif" fontSize = 8 pageno = 0 borderStyle = 3 // None endwith this.BACKBUTTON = new PUSHBUTTON(this) with (this.BACKBUTTON) onClick = class::BACKBUTTON_ONCLICK enabled = false height = 22 left = 92 top = 301 width = 84 text = "Back" metric = 6 // Pixels fontSize = 8 group = true colorNormal = "BtnText/BtnFace" pageno = 0 value = false endwith this.NEXTBUTTON = new PUSHBUTTON(this) with (this.NEXTBUTTON) onClick = class::NEXTBUTTON_ONCLICK enabled = false height = 22 left = 176 top = 301 width = 84 text = "Next" metric = 6 // Pixels fontSize = 8 group = true colorNormal = "BtnText/BtnFace" pageno = 0 value = false endwith this.CANCELBUTTON = new PUSHBUTTON(this) with (this.CANCELBUTTON) onClick = class::CANCELBUTTON_ONCLICK height = 22 left = 272 top = 301 width = 84 text = "Cancel" metric = 6 // Pixels fontSize = 8 group = true colorNormal = "BtnText/BtnFace" pageno = 0 value = false endwith this.HELPBUTTON = new PUSHBUTTON(this) with (this.HELPBUTTON) onClick = class::HELPBUTTON_ONCLICK height = 22 left = 367 top = 301 width = 84 text = "Help" metric = 6 // Pixels fontSize = 8 group = true colorNormal = "BtnText/BtnFace" pageno = 0 value = false endwith this.ARROW1 = new IMAGE(this) with (this.ARROW1) height = 70 left = 261 top = 96 width = 100 metric = 6 // Pixels dataSource = "FILENAME www.bmp" alignment = 4 // True Size borderStyle = 3 // None endwith this.TEXT1 = new TEXT(this) with (this.TEXT1) height = 47 left = 100 top = 13 width = 323 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "<p>This Wizard helps you create Visual dBASE 7 Web applications.</p><p>Select the type of application you wish to create.</p>" endwith this.ARROW2 = new IMAGE(this) with (this.ARROW2) height = 13 left = 74 top = 14 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size borderStyle = 3 // None endwith this.DATAENTRYBUTTON = new PUSHBUTTON(this) with (this.DATAENTRYBUTTON) onClick = class::DATAENTRYBUTTON_ONCLICK height = 68 left = 99 top = 97 width = 139 text = "Remote Data Entry" metric = 6 // Pixels upBitmap = "filename DataEntr.bmp" fontSize = 8 group = true colorNormal = "BtnText/BtnFace" value = false endwith this.TEXT2 = new TEXT(this) with (this.TEXT2) height = 27 left = 83 top = 5 width = 147 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontName = "Times New Roman" fontSize = 8 text = "<b><font size=5>First Page Title</font></b>" pageno = 9 endwith this.DRILLDOWNBUTTON = new PUSHBUTTON(this) with (this.DRILLDOWNBUTTON) onClick = class::DRILLDOWNBUTTON_ONCLICK height = 68 left = 99 top = 168 width = 139 text = "Query And Response" metric = 6 // Pixels upBitmap = "filename Query.bmp" fontSize = 8 group = true colorNormal = "BtnText/BtnFace" value = false endwith this.TEXT3 = new TEXT(this) with (this.TEXT3) height = 19 left = 98 top = 35 width = 329 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Enter and format the title for the starting page of your application." pageno = 9 endwith this.PUBLISHBUTTON = new PUSHBUTTON(this) with (this.PUBLISHBUTTON) onClick = class::PUBLISHBUTTON_ONCLICK height = 68 left = 241 top = 168 width = 139 text = "Publish" metric = 6 // Pixels upBitmap = "filename Reports.bmp" fontSize = 8 group = true colorNormal = "BtnText/BtnFace" value = false endwith this.TOPTEXTTITLE = new TEXT(this) with (this.TOPTEXTTITLE) height = 27 left = 83 top = 5 width = 277 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontName = "Times New Roman" fontSize = 8 text = "<h2>Text Above Data-Entry Area</h2>" pageno = 10 endwith this.TOPTEXTLABEL = new TEXT(this) with (this.TOPTEXTLABEL) height = 33 left = 98 top = 35 width = 379 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Enter and format the text that will appear above data-entry area (optional)" pageno = 10 endwith this.ARROW3 = new IMAGE(this) with (this.ARROW3) height = 13 left = 83 top = 35 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 9 borderStyle = 3 // None endwith this.ARROW4 = new IMAGE(this) with (this.ARROW4) height = 13 left = 83 top = 35 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 10 borderStyle = 3 // None endwith this.DATASOURCEFIELD = new ENTRYFIELD(this) with (this.DATASOURCEFIELD) height = 19 left = 95 top = 171 width = 303 metric = 6 // Pixels colorHighLight = "" fontName = "MS Sans Serif" fontSize = 8 value = " " maxLength = 100 pageno = 4 borderStyle = 7 // Client endwith this.DATAMODULELOOKUPBUTTON = new PUSHBUTTON(this) with (this.DATAMODULELOOKUPBUTTON) onClick = class::DATAMODULELOOKUPBUTTON_ONCLICK height = 19 left = 411 top = 171 width = 27 text = "" metric = 6 // Pixels upBitmap = "RESOURCE #148" fontSize = 8 group = false colorNormal = "BtnText/BtnFace" pageno = 4 value = false endwith this.TEXT4 = new TEXT(this) with (this.TEXT4) height = 28 left = 98 top = 35 width = 340 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Select a table or Data Module to supply the fields for this Web data-entry application." pageno = 4 endwith this.ARROW5 = new IMAGE(this) with (this.ARROW5) height = 13 left = 83 top = 35 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 4 borderStyle = 3 // None endwith this.TEXT5 = new TEXT(this) with (this.TEXT5) height = 22 left = 83 top = 5 width = 137 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontName = "Times New Roman" fontSize = 8 text = "<font size=5><b>Data Source</b></font>" pageno = 4 endwith this.TEXT6 = new TEXT(this) with (this.TEXT6) height = 61 left = 98 top = 99 width = 340 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "If you're using a remote data engine or a local table that requires a log-in, you must use a Data Module that contains a database object with a hard-wired LoginString for anonymous log-in from the browser." pageno = 4 endwith this.ARROW6 = new IMAGE(this) with (this.ARROW6) height = 13 left = 83 top = 100 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 4 borderStyle = 3 // None endwith this.AVAILABLEFIELDSLIST = new LISTBOX(this) with (this.AVAILABLEFIELDSLIST) height = 190 left = 84 top = 75 width = 164 metric = 6 // Pixels id = 131 fontSize = 8 colorHighLight = "HighLightText/HighLight" pageno = 5 endwith this.SELECTONEBUTTON = new PUSHBUTTON(this) with (this.SELECTONEBUTTON) onClick = class::SELECTONEBUTTON_ONCLICK height = 19 left = 253 top = 119 width = 30 text = ">" metric = 6 // Pixels group = false colorNormal = "BtnText/BtnFace" pageno = 5 value = false endwith this.SELECTALLBUTTON = new PUSHBUTTON(this) with (this.SELECTALLBUTTON) onClick = class::SELECTALLBUTTON_ONCLICK height = 19 left = 253 top = 144 width = 30 text = ">>" metric = 6 // Pixels group = false colorNormal = "BtnText/BtnFace" pageno = 5 value = false endwith this.DESELECTONEBUTTON = new PUSHBUTTON(this) with (this.DESELECTONEBUTTON) onClick = class::DESELECTONEBUTTON_ONCLICK height = 19 left = 253 top = 169 width = 30 text = "<" metric = 6 // Pixels group = false colorNormal = "BtnText/BtnFace" pageno = 5 value = false endwith this.DESELECTALLBUTTON = new PUSHBUTTON(this) with (this.DESELECTALLBUTTON) onClick = class::DESELECTALLBUTTON_ONCLICK height = 19 left = 253 top = 194 width = 30 text = "<<" metric = 6 // Pixels group = false colorNormal = "BtnText/BtnFace" pageno = 5 value = false endwith this.SELECTEDFIELDSLIST = new LISTBOX(this) with (this.SELECTEDFIELDSLIST) height = 190 left = 286 top = 75 width = 164 metric = 6 // Pixels id = 131 fontSize = 8 colorHighLight = "HighLightText/HighLight" pageno = 5 endwith this.TEXT7 = new TEXT(this) with (this.TEXT7) height = 14 left = 98 top = 35 width = 340 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Select the fields you wish to appear on the data-entry page." pageno = 5 endwith this.ARROW7 = new IMAGE(this) with (this.ARROW7) height = 13 left = 83 top = 35 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 5 borderStyle = 3 // None endwith this.TEXT8 = new TEXT(this) with (this.TEXT8) height = 22 left = 83 top = 5 width = 137 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontName = "Times New Roman" fontSize = 8 text = "<b><font size=5>Fields</font></b>" pageno = 5 endwith this.APPEARANCETEXT = new TEXT(this) with (this.APPEARANCETEXT) height = 61 left = 97 top = 35 width = 340 metric = 6 // Pixels colorNormal = "BtnText/w" fontSize = 8 l0 = "Select a background color and a background image (optional) for all pages of your data-entry application. Even if you use an image for your background, you should select a matching color as it will be displayed while the background image loads in the brows" l0 += "er." text = l0 pageno = 7 endwith this.TEXT10 = new TEXT(this) with (this.TEXT10) height = 22 left = 83 top = 5 width = 137 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontName = "Times New Roman" fontSize = 8 text = "<b><font size=5>Appearance</font></b>" pageno = 7 endwith this.ARROW8 = new IMAGE(this) with (this.ARROW8) height = 13 left = 83 top = 35 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 7 borderStyle = 3 // None endwith this.BACKGROUNDDISPLAY = new IMAGE(this) with (this.BACKGROUNDDISPLAY) height = 85 left = 85 top = 180 width = 107 metric = 6 // Pixels alignment = 4 // True Size pageno = 7 borderStyle = 2 // Lowered endwith this.BACKGROUNDCOLORFIELD = new ENTRYFIELD(this) with (this.BACKGROUNDCOLORFIELD) onChange = class::BACKGROUNDCOLORFIELD_ONCHANGE enabled = false height = 19 left = 199 top = 125 width = 206 metric = 6 // Pixels colorHighLight = "" fontName = "MS Sans Serif" fontSize = 8 value = "0xC0C0C0 " maxLength = 100 pageno = 7 borderStyle = 7 // Client endwith this.BACKGROUNDLIST = new LISTBOX(this) with (this.BACKGROUNDLIST) onSelChange = class::BACKGROUNDLIST_ONSELCHANGE height = 65 left = 199 top = 178 width = 127 metric = 6 // Pixels id = 150 fontSize = 8 colorHighLight = "HighLightText/HighLight" dataSource = 'ARRAY {"Grey Granite","Blue Granite","Grey Marble","Blue Marble","Green Marble"}' pageno = 7 endwith this.BACKGROUNDCOLORBUTTON = new PUSHBUTTON(this) with (this.BACKGROUNDCOLORBUTTON) onClick = class::BACKGROUNDCOLORBUTTON_ONCLICK height = 19 left = 409 top = 125 width = 27 text = "" metric = 6 // Pixels upBitmap = "RESOURCE #148" fontSize = 8 group = false colorNormal = "BtnText/BtnFace" pageno = 7 value = false endwith this.BACKGROUNDIMAGEBUTTON = new PUSHBUTTON(this) with (this.BACKGROUNDIMAGEBUTTON) height = 19 left = 409 top = 247 width = 27 text = "" metric = 6 // Pixels upBitmap = "RESOURCE #148" fontSize = 8 group = false colorNormal = "BtnText/BtnFace" pageno = 7 value = false endwith this.BACKGROUNDIMAGEFIELD = new ENTRYFIELD(this) with (this.BACKGROUNDIMAGEFIELD) enabled = false height = 19 left = 199 top = 247 width = 206 metric = 6 // Pixels colorHighLight = "" fontName = "MS Sans Serif" fontSize = 8 value = "None " maxLength = 100 pageno = 7 borderStyle = 7 // Client endwith this.TEXT11 = new TEXT(this) with (this.TEXT11) height = 15 left = 200 top = 164 width = 127 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "<p>Background image</p><p></p>" pageno = 7 endwith this.TEXT12 = new TEXT(this) with (this.TEXT12) height = 16 left = 199 top = 108 width = 127 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Background color" pageno = 7 endwith this.BACKCOLORDISPLAY = new RECTANGLE(this) with (this.BACKCOLORDISPLAY) left = 85 top = 101 width = 107 height = 63 metric = 6 // Pixels text = "Rectangle1" colorNormal = "WindowText/BtnFace" border = false fontSize = 8 pageno = 7 borderStyle = 2 // Lowered endwith this.TEXT14 = new TEXT(this) with (this.TEXT14) height = 22 left = 83 top = 5 width = 277 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontName = "Times New Roman" fontSize = 8 text = "<h2>Text Below Data-Entry Area</h2>" pageno = 11 endwith this.TEXT15 = new TEXT(this) with (this.TEXT15) height = 22 left = 98 top = 35 width = 378 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Enter and format the text that will appear below data-entry area (optional)" pageno = 11 endwith this.ARROW9 = new IMAGE(this) with (this.ARROW9) height = 13 left = 83 top = 35 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 11 borderStyle = 3 // None endwith this.TEXT13 = new TEXT(this) with (this.TEXT13) height = 22 left = 83 top = 5 width = 277 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontName = "Times New Roman" fontSize = 8 text = "<h2>Mail and Home</h2>" pageno = 13 endwith this.TEXT17 = new TEXT(this) with (this.TEXT17) height = 33 left = 98 top = 35 width = 351 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "This Wizard helps you add links to your home page and e-mail address. Select images or text for Home and Mail (optional)." pageno = 13 endwith this.FIRSTPAGETITLE = new HTMLGET(this) with (this.FIRSTPAGETITLE) transparent = true left = 85 top = 59 width = 368 height = 218 metric = 6 // Pixels pageno = 9 endwith this.PAGELOGO = new IMAGE(this) with (this.PAGELOGO) visible = false height = 70 left = 8 top = 2 width = 60 metric = 6 // Pixels dataSource = "FILENAME Dataentr.bmp" alignment = 4 // True Size pageno = 0 borderStyle = 3 // None endwith this.RECTANGLE1 = new RECTANGLE(this) with (this.RECTANGLE1) left = 100 top = 181 width = 347 height = 101 metric = 6 // Pixels text = "Filename and URL" colorNormal = "WindowText/BtnFace" fontSize = 8 pageno = 3 endwith this.FOLDERBOX = new RECTANGLE(this) with (this.FOLDERBOX) left = 99 top = 83 width = 347 height = 97 metric = 6 // Pixels text = "Folders" colorNormal = "WindowText/BtnFace" fontSize = 8 pageno = 3 endwith this.TEXT19 = new TEXT(this) with (this.TEXT19) height = 14 left = 107 top = 101 width = 293 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Windows Folder for starting HTML page" pageno = 3 endwith this.TEXT20 = new TEXT(this) with (this.TEXT20) height = 14 left = 107 top = 138 width = 293 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Windows Folder for Web Server CGI-Bin" pageno = 3 endwith this.TEXT18 = new TEXT(this) with (this.TEXT18) height = 14 left = 108 top = 201 width = 293 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Filename for .htm, .prg and .exe" pageno = 3 endwith this.TEXT21 = new TEXT(this) with (this.TEXT21) height = 14 left = 108 top = 240 width = 293 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "URL to CGI (ex: www.mysite.com/cgi-bin/)" pageno = 3 endwith this.LOCATIONSTEXT = new TEXT(this) with (this.LOCATIONSTEXT) height = 42 left = 98 top = 35 width = 332 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "This Wizard requires information about your web site and Windows folders in order to generate and run your application. Enter the information as indicated below: " pageno = 3 endwith this.ARROW10 = new IMAGE(this) with (this.ARROW10) height = 13 left = 83 top = 35 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 3 borderStyle = 3 // None endwith this.HTMLPATHFIELD = new ENTRYFIELD(this) with (this.HTMLPATHFIELD) onChange = class::VALIDATEPATHS height = 19 left = 107 top = 115 width = 294 metric = 6 // Pixels colorHighLight = "" fontName = "MS Sans Serif" fontSize = 8 value = " " maxLength = 100 pageno = 3 borderStyle = 7 // Client endwith this.CGIPATHFIELD = new ENTRYFIELD(this) with (this.CGIPATHFIELD) onChange = class::VALIDATEPATHS height = 19 left = 107 top = 153 width = 294 metric = 6 // Pixels colorHighLight = "" fontName = "MS Sans Serif" fontSize = 8 value = " " maxLength = 100 pageno = 3 borderStyle = 7 // Client endwith this.FILENAMEFIELD = new ENTRYFIELD(this) with (this.FILENAMEFIELD) key = class::FILENAMEFIELD_KEY height = 19 left = 108 top = 216 width = 166 metric = 6 // Pixels colorHighLight = "" fontName = "MS Sans Serif" fontSize = 8 value = " " maxLength = 100 pageno = 3 borderStyle = 7 // Client endwith this.URLFIELD = new ENTRYFIELD(this) with (this.URLFIELD) key = class::URLFIELD_KEY height = 19 left = 108 top = 255 width = 327 metric = 6 // Pixels colorHighLight = "" fontName = "MS Sans Serif" fontSize = 8 value = " " maxLength = 100 pageno = 3 borderStyle = 7 // Client endwith this.HTMLPATHBUTTON = new PUSHBUTTON(this) with (this.HTMLPATHBUTTON) onClick = class::HTMLPATHBUTTON_ONCLICK height = 19 left = 408 top = 115 width = 27 text = "" metric = 6 // Pixels upBitmap = "RESOURCE #148" fontSize = 8 group = false colorNormal = "BtnText/BtnFace" pageno = 3 value = false endwith this.CGIPATHBUTTON = new PUSHBUTTON(this) with (this.CGIPATHBUTTON) onClick = class::CGIPATHBUTTON_ONCLICK height = 19 left = 408 top = 153 width = 27 text = "" metric = 6 // Pixels upBitmap = "RESOURCE #148" fontSize = 8 group = false colorNormal = "BtnText/BtnFace" pageno = 3 value = false endwith this.TEXT22 = new TEXT(this) with (this.TEXT22) height = 22 left = 83 top = 5 width = 167 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontName = "Times New Roman" fontSize = 8 text = "<font size=5><b>Paths And URLs</b></font>" pageno = 3 endwith this.GRID1 = new GRID(this) with (this.GRID1) columns["COLUMN1"] = new GRIDCOLUMN(form.GRID1) columns["COLUMN1"].editorType = 1 // EntryField columns["COLUMN1"].dataLink = form.wiztemp1.rowset.fields["Field"] columns["COLUMN1"].width = 140 columns["COLUMN2"] = new GRIDCOLUMN(form.GRID1) columns["COLUMN2"].editorType = 1 // EntryField columns["COLUMN2"].dataLink = form.wiztemp1.rowset.fields["Label"] columns["COLUMN2"].width = 166 with (columns["COLUMN1"].editorControl) colorNormal = "N/0XFFFF80" colorHighLight = "" fontName = "MS Sans Serif" fontSize = 8 endwith with (columns["COLUMN1"].headingControl) fontName = "MS Sans Serif" fontSize = 8 fontBold = false value = "Field " endwith with (columns["COLUMN2"].editorControl) colorHighLight = "" fontName = "MS Sans Serif" fontSize = 8 endwith with (columns["COLUMN2"].headingControl) fontName = "MS Sans Serif" fontSize = 8 fontBold = false value = "Label " endwith bgColor = "white" cellHeight = 16 allowAddRows = false dataLink = form.wiztemp1.rowset pageno = 6 borderStyle = 2 // Lowered height = 162 left = 98 top = 68 width = 347 metric = 6 // Pixels endwith this.TEXT23 = new TEXT(this) with (this.TEXT23) height = 33 left = 98 top = 35 width = 340 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Enter labels corresponding to the fields that will appear in your Web data-entry application. Labels are optional." pageno = 6 endwith this.ARROW11 = new IMAGE(this) with (this.ARROW11) height = 13 left = 83 top = 35 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 6 borderStyle = 3 // None endwith this.TEXT24 = new TEXT(this) with (this.TEXT24) height = 22 left = 83 top = 5 width = 137 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontName = "Times New Roman" fontSize = 8 text = "<b><font size=5>Labels</font></b>" pageno = 6 endwith this.TEXTABOVEDATAENTRY = new HTMLGET(this) with (this.TEXTABOVEDATAENTRY) transparent = true left = 85 top = 59 width = 368 height = 218 metric = 6 // Pixels pageno = 10 endwith this.TEXTBELOWDATAENTRY = new HTMLGET(this) with (this.TEXTBELOWDATAENTRY) transparent = true left = 85 top = 59 width = 368 height = 218 metric = 6 // Pixels pageno = 11 endwith this.ARROW12 = new IMAGE(this) with (this.ARROW12) height = 13 left = 83 top = 35 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 13 borderStyle = 3 // None endwith this.USEIMAGERADIO = new RADIOBUTTON(this) with (this.USEIMAGERADIO) onChange = class::IMAGEORTEXT height = 19 left = 98 top = 72 width = 81 text = "Use Image" metric = 6 // Pixels colorNormal = "WindowText/BtnFace" fontSize = 8 group = true value = true pageno = 13 endwith this.USETEXTRADIO = new RADIOBUTTON(this) with (this.USETEXTRADIO) onChange = class::IMAGEORTEXT height = 19 left = 224 top = 72 width = 99 text = "Use Plain Text" metric = 6 // Pixels colorNormal = "WindowText/BtnFace" fontSize = 8 group = false value = false pageno = 13 endwith this.MAILHOMELIST = new LISTBOX(this) with (this.MAILHOMELIST) onSelChange = class::MAILHOMELIST_ONSELCHANGE height = 70 left = 314 top = 102 width = 138 metric = 6 // Pixels id = 179 fontSize = 8 colorHighLight = "HighLightText/HighLight" dataSource = 'ARRAY {"None (or user-defined)","Animated Grey","Chrome","Brass","Drop Shadow"}' pageno = 13 borderStyle = 2 // Lowered endwith this.HOMEIMAGEFIELD = new ENTRYFIELD(this) with (this.HOMEIMAGEFIELD) onChange = class::HOMEIMAGEFIELD_ONCHANGE height = 19 left = 175 top = 181 width = 246 metric = 6 // Pixels colorHighLight = "" fontName = "MS Sans Serif" fontSize = 8 value = " " maxLength = 100 pageno = 13 borderStyle = 7 // Client endwith this.MAILIMAGEFIELD = new ENTRYFIELD(this) with (this.MAILIMAGEFIELD) onChange = class::MAILIMAGEFIELD_ONCHANGE height = 19 left = 175 top = 205 width = 246 metric = 6 // Pixels colorHighLight = "" fontName = "MS Sans Serif" fontSize = 8 value = " " maxLength = 100 pageno = 13 borderStyle = 7 // Client endwith this.HOMEURLFIELD = new ENTRYFIELD(this) with (this.HOMEURLFIELD) height = 19 left = 175 top = 236 width = 278 metric = 6 // Pixels colorHighLight = "" fontName = "MS Sans Serif" fontSize = 8 value = " " maxLength = 100 pageno = 13 borderStyle = 7 // Client endwith this.MAILADDRESSFIELD = new ENTRYFIELD(this) with (this.MAILADDRESSFIELD) height = 19 left = 175 top = 259 width = 278 metric = 6 // Pixels colorHighLight = "" fontName = "MS Sans Serif" fontSize = 8 value = " " maxLength = 100 pageno = 13 borderStyle = 7 // Client endwith this.HOMEIMAGEBUTTON = new PUSHBUTTON(this) with (this.HOMEIMAGEBUTTON) onClick = class::HOMEIMAGEBUTTON_ONCLICK height = 18 left = 428 top = 182 width = 26 text = "" metric = 6 // Pixels upBitmap = "RESOURCE #148" fontSize = 8 group = false colorNormal = "BtnText/BtnFace" pageno = 13 value = false endwith this.MAILIMAGEBUTTON = new PUSHBUTTON(this) with (this.MAILIMAGEBUTTON) onClick = class::MAILIMAGEBUTTON_ONCLICK height = 18 left = 428 top = 205 width = 26 text = "" metric = 6 // Pixels upBitmap = "RESOURCE #148" fontSize = 8 group = false colorNormal = "BtnText/BtnFace" pageno = 13 value = false endwith this.MAILIMAGE = new IMAGE(this) with (this.MAILIMAGE) height = 70 left = 199 top = 102 width = 93 metric = 6 // Pixels alignment = 1 // Top Left pageno = 13 borderStyle = 2 // Lowered endwith this.HOMEIMAGE = new IMAGE(this) with (this.HOMEIMAGE) height = 70 left = 98 top = 102 width = 93 metric = 6 // Pixels alignment = 1 // Top Left pageno = 13 borderStyle = 2 // Lowered endwith this.HOMELABEL = new TEXT(this) with (this.HOMELABEL) height = 19 left = 95 top = 183 width = 77 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Home Image" pageno = 13 endwith this.MAILLABEL = new TEXT(this) with (this.MAILLABEL) height = 19 left = 95 top = 206 width = 78 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Mail Image" pageno = 13 endwith this.TEXT27 = new TEXT(this) with (this.TEXT27) height = 19 left = 95 top = 238 width = 66 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Home URL" pageno = 13 endwith this.TEXT28 = new TEXT(this) with (this.TEXT28) height = 19 left = 95 top = 262 width = 78 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Mail Address" pageno = 13 endwith this.TEXT29 = new TEXT(this) with (this.TEXT29) height = 22 left = 83 top = 5 width = 137 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontName = "Times New Roman" fontSize = 8 text = "<b><font size=5>Logo</font></b>" pageno = 8 endwith this.TEXT30 = new TEXT(this) with (this.TEXT30) height = 28 left = 98 top = 35 width = 329 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Select a graphic logo image to use at the top of your starting page (optional)." pageno = 8 endwith this.RECTANGLE2 = new RECTANGLE(this) with (this.RECTANGLE2) left = 101 top = 236 width = 349 height = 46 metric = 6 // Pixels text = "Alignment" colorNormal = "WindowText/BtnFace" fontSize = 8 pageno = 8 endwith this.ARROW13 = new IMAGE(this) with (this.ARROW13) height = 13 left = 83 top = 35 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 8 borderStyle = 3 // None endwith this.LOGOIMAGE = new IMAGE(this) with (this.LOGOIMAGE) height = 131 left = 98 top = 68 width = 350 metric = 6 // Pixels alignment = 1 // Top Left pageno = 8 borderStyle = 2 // Lowered endwith this.LOGOIMAGEFIELD = new ENTRYFIELD(this) with (this.LOGOIMAGEFIELD) onChange = class::LOGOIMAGEFIELD_ONCHANGE height = 19 left = 98 top = 207 width = 315 metric = 6 // Pixels colorHighLight = "" fontName = "MS Sans Serif" fontSize = 8 value = " " maxLength = 100 pageno = 8 borderStyle = 7 // Client endwith this.TOPLEFTRADIO = new RADIOBUTTON(this) with (this.TOPLEFTRADIO) height = 19 left = 116 top = 254 width = 70 text = "Top/Left" metric = 6 // Pixels colorNormal = "WindowText/BtnFace" fontSize = 8 group = true value = true pageno = 8 endwith this.TOPCENTERRADIO = new RADIOBUTTON(this) with (this.TOPCENTERRADIO) height = 19 left = 239 top = 254 width = 79 text = "Top/center" metric = 6 // Pixels colorNormal = "WindowText/BtnFace" fontSize = 8 group = false value = false pageno = 8 endwith this.LEFTOFTITLERADIO = new RADIOBUTTON(this) with (this.LEFTOFTITLERADIO) height = 19 left = 361 top = 254 width = 75 text = "Left of title" metric = 6 // Pixels colorNormal = "WindowText/BtnFace" fontSize = 8 group = false value = false pageno = 8 endwith this.TEXT31 = new TEXT(this) with (this.TEXT31) height = 22 left = 82 top = 5 width = 277 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontName = "Times New Roman" fontSize = 8 text = "<h2>Generate Application</h2>" pageno = 14 endwith this.TEXT32 = new TEXT(this) with (this.TEXT32) height = 40 left = 98 top = 35 width = 351 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "<p>Click the Finish button to generate your Web data-entry application.</p><p>The following files will be created:</p>" pageno = 14 endwith this.ARROW14 = new IMAGE(this) with (this.ARROW14) height = 13 left = 83 top = 36 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 14 borderStyle = 3 // None endwith this.LOGOBUTTON = new PUSHBUTTON(this) with (this.LOGOBUTTON) onClick = class::LOGOBUTTON_ONCLICK height = 19 left = 421 top = 207 width = 29 text = "" metric = 6 // Pixels upBitmap = "RESOURCE #148" fontSize = 8 group = false colorNormal = "BtnText/BtnFace" pageno = 8 value = false endwith this.FINISHLIST = new LISTBOX(this) with (this.FINISHLIST) height = 130 left = 98 top = 82 width = 349 metric = 6 // Pixels id = 208 fontSize = 8 colorNormal = "N/W+" colorHighLight = "HighLightText/HighLight" pageno = 14 endwith this.PROGRESS1 = new PROGRESS(this) with (this.PROGRESS1) height = 19 left = 98 top = 250 width = 349 metric = 6 // Pixels pageno = 14 value = 0 rangeMin = 0 rangeMax = 100 endwith this.RECTANGLE3 = new RECTANGLE(this) with (this.RECTANGLE3) left = 97 top = 90 width = 351 height = 56 metric = 6 // Pixels text = "Search Criteria" colorNormal = "BtnText/BtnFace" fontSize = 8 pageno = 15 endwith this.FINISHLABEL = new TEXT(this) with (this.FINISHLABEL) height = 19 left = 98 top = 230 width = 300 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Progress" pageno = 14 endwith this.ENTRYFIELDRADIO = new RADIOBUTTON(this) with (this.ENTRYFIELDRADIO) onChange = class::ENTRYFIELDRADIO_ONCHANGE height = 24 left = 162 top = 108 width = 79 text = "Entryfield" metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 group = true value = true pageno = 15 endwith this.COMBOBOXRADIO = new RADIOBUTTON(this) with (this.COMBOBOXRADIO) onChange = class::COMBOBOXRADIO_ONCHANGE height = 24 left = 289 top = 108 width = 83 text = "Combobox" metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 group = false value = false pageno = 15 endwith this.RECTANGLE4 = new RECTANGLE(this) with (this.RECTANGLE4) left = 96 top = 212 width = 351 height = 56 metric = 6 // Pixels text = "Drill-Down Levels" colorNormal = "BtnText/BtnFace" fontSize = 8 pageno = 15 endwith this.SINGLEREPORTRADIO = new RADIOBUTTON(this) with (this.SINGLEREPORTRADIO) onChange = class::SINGLEREPORTRADIO_ONCHANGE height = 24 left = 162 top = 231 width = 92 text = "Single Report" metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 group = true value = true pageno = 15 endwith this.DRILLDOWNRADIO = new RADIOBUTTON(this) with (this.DRILLDOWNRADIO) onChange = class::DRILLDOWNRADIO_ONCHANGE height = 24 left = 289 top = 231 width = 79 text = "Drill-Down" metric = 6 // Pixels colorNormal = "BtnText/BtnFace" enabled = false fontSize = 8 group = false value = false pageno = 15 endwith this.TEXT9 = new TEXT(this) with (this.TEXT9) height = 22 left = 82 top = 5 width = 277 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontName = "Times New Roman" fontSize = 8 text = "<h2>Query</h2>" pageno = 15 endwith this.TEXT16 = new TEXT(this) with (this.TEXT16) height = 47 left = 98 top = 36 width = 353 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "The first page of your Query and Response application supports either an entryfield (HTML Text Object) or Combobox (HTML Select) for the user to enter or select their search criteria." pageno = 15 endwith this.IMAGE15 = new IMAGE(this) with (this.IMAGE15) height = 13 left = 83 top = 37 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 15 borderStyle = 3 // None endwith this.TEXT34 = new TEXT(this) with (this.TEXT34) height = 47 left = 99 top = 161 width = 353 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Your Query and Response Web application can run a single report, or drill down from the first report into a second. Select the type of Query and Response application you'd like to develop." pageno = 15 endwith this.IMAGE16 = new IMAGE(this) with (this.IMAGE16) height = 13 left = 84 top = 162 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 15 borderStyle = 3 // None endwith this.TEXT35 = new TEXT(this) with (this.TEXT35) height = 22 left = 83 top = 5 width = 277 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontName = "Times New Roman" fontSize = 8 text = "<h2>Text On Response Page</h2>" pageno = 12 endwith this.TEXT36 = new TEXT(this) with (this.TEXT36) height = 14 left = 98 top = 35 width = 351 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Enter and format the text that will appear upon successful completion." pageno = 12 endwith this.IMAGE17 = new IMAGE(this) with (this.IMAGE17) height = 13 left = 83 top = 35 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 12 borderStyle = 3 // None endwith this.TEXTONRESPONSEPAGE = new HTMLGET(this) with (this.TEXTONRESPONSEPAGE) transparent = true left = 85 top = 59 width = 368 height = 218 metric = 6 // Pixels pageno = 12 endwith this.LINE2 = new RECTANGLE(this) with (this.LINE2) left = 23 top = 292 width = 430 height = 1 metric = 6 // Pixels text = "Rectangle2" colorNormal = "W+/W+" pageno = 0 borderStyle = 3 // None endwith this.LINE1 = new RECTANGLE(this) with (this.LINE1) left = 23 top = 290 width = 430 height = 2 metric = 6 // Pixels text = "Rectangle1" colorNormal = "N+/N+" pageno = 0 borderStyle = 3 // None endwith this.TEXT38 = new TEXT(this) with (this.TEXT38) height = 22 left = 82 top = 5 width = 277 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontName = "Times New Roman" fontSize = 8 text = "<h2>Combobox (Select) Options</h2>" pageno = 16 endwith this.TEXT39 = new TEXT(this) with (this.TEXT39) height = 61 left = 98 top = 36 width = 353 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Enter the options you wish to make available in your HTLM select. Each option must be entered in<i> exactly</i> the format needed to perform a successful looku except for case. All lookups will be converted to upper case.." pageno = 16 endwith this.IMAGE19 = new IMAGE(this) with (this.IMAGE19) height = 13 left = 83 top = 37 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 16 borderStyle = 3 // None endwith this.OPTIONFIELD = new ENTRYFIELD(this) with (this.OPTIONFIELD) height = 20 left = 100 top = 106 width = 166 metric = 6 // Pixels colorHighLight = "" fontSize = 8 value = " " pageno = 16 borderStyle = 7 // Client endwith this.ADDOPTIONBUTTON = new PUSHBUTTON(this) with (this.ADDOPTIONBUTTON) onClick = class::ADDOPTIONBUTTON_ONCLICK height = 22 left = 173 top = 137 width = 93 text = "&Add Option" metric = 6 // Pixels fontSize = 8 group = false colorNormal = "BtnText/BtnFace" pageno = 16 value = false endwith this.REMOVEOPTIONBUTTON = new PUSHBUTTON(this) with (this.REMOVEOPTIONBUTTON) onClick = class::REMOVEOPTIONBUTTON_ONCLICK height = 22 left = 173 top = 168 width = 93 text = "&Remove Option" metric = 6 // Pixels fontSize = 8 group = false colorNormal = "BtnText/BtnFace" pageno = 16 value = false endwith this.OPTIONLIST = new LISTBOX(this) with (this.OPTIONLIST) height = 170 left = 284 top = 104 width = 159 metric = 6 // Pixels id = 231 fontSize = 8 colorHighLight = "HighLightText/HighLight" pageno = 16 endwith this.TEXT25 = new TEXT(this) with (this.TEXT25) height = 22 left = 82 top = 5 width = 341 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontName = "Times New Roman" fontSize = 12 fontBold = true text = "<h3>Report That Responds to Query</h3>" pageno = 17 endwith this.TEXT26 = new TEXT(this) with (this.TEXT26) height = 22 left = 82 top = 5 width = 326 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontName = "Times New Roman" fontSize = 12 fontBold = true text = "<h3>Drill-Down Report</h3>" pageno = 18 endwith this.SECONDREPORTFIELD = new ENTRYFIELD(this) with (this.SECONDREPORTFIELD) onChange = class::SECONDREPORTFIELD_ONCHANGE height = 19 left = 97 top = 151 width = 317 metric = 6 // Pixels colorHighLight = "" fontSize = 8 value = " " pageno = 18 borderStyle = 7 // Client endwith this.SECONDREPORTBUTTON = new PUSHBUTTON(this) with (this.SECONDREPORTBUTTON) onClick = class::SECONDREPORTBUTTON_ONCLICK height = 19 left = 425 top = 151 width = 25 text = "" metric = 6 // Pixels upBitmap = "RESOURCE #148" fontSize = 8 group = false colorNormal = "BtnText/BtnFace" pageno = 18 value = false endwith this.TEXT40 = new TEXT(this) with (this.TEXT40) height = 28 left = 98 top = 35 width = 353 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "This WIzard will call a second report when the user clicks on an item on the initial report." pageno = 18 endwith this.IMAGE20 = new IMAGE(this) with (this.IMAGE20) height = 13 left = 83 top = 34 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 18 borderStyle = 3 // None endwith this.IMAGE21 = new IMAGE(this) with (this.IMAGE21) height = 13 left = 83 top = 132 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 18 borderStyle = 3 // None endwith this.INTRO = new TEXT(this) with (this.INTRO) height = 224 left = 98 top = 35 width = 359 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 l1 = "<p>This Data-Entry Web Wizard helps you create an application that gathers data from user-input at the Browser, returns the data to the server and stores it in a server-side database.</p><p></p><p></p><p>This wizard will generate a data-gathering HTML page" l1 += " and a server-side executable application (including modifiable source code).</p><p></p><p></p><p>In order to use this Wizard, you will need to provide:</p><ul><li>The Windows Path to your Web Site folder.</li><li>The URL (Web address) as defined in your W" l1 += "eb Server for CGI-Bin.</li><li>The Windows Path to your CGI-Bin folder.</li><li>An accessible Data Module or Table</li></ul><p></p>" text = l1 pageno = 2 endwith this.IMAGE22 = new IMAGE(this) with (this.IMAGE22) height = 13 left = 83 top = 35 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 2 borderStyle = 3 // None endwith this.INTROTITLE = new TEXT(this) with (this.INTROTITLE) height = 22 left = 82 top = 5 width = 364 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontName = "Times New Roman" fontSize = 12 fontBold = true text = "<h3>Data-Entry Web Wizard</h3>" pageno = 2 endwith this.IMAGE23 = new IMAGE(this) with (this.IMAGE23) height = 13 left = 83 top = 107 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 2 borderStyle = 3 // None endwith this.IMAGE24 = new IMAGE(this) with (this.IMAGE24) height = 13 left = 83 top = 161 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 2 borderStyle = 3 // None endwith this.TEXT44 = new TEXT(this) with (this.TEXT44) height = 22 left = 82 top = 5 width = 275 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontName = "Times New Roman" fontSize = 12 fontBold = true text = "<h3>Publish Web Wizard</h3>" pageno = 19 endwith this.TEXT45 = new TEXT(this) with (this.TEXT45) height = 154 left = 98 top = 35 width = 350 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 l2 = "<p>This Wizard publishes static or live Visual dBASE 7 reports to your Web Site as HTML pages. A <i>static</i> report is run when this Wizard is finished. The HTML page it generates remains unchanged until you run this Wizard again. A <i>live</i> report is" l2 += " run on your server in response to a URL called from a page on your Web site. The HTML page returned to the Browse displays the most current data.</p><p></p><p>To use this Wizard, you must provide:</p><ul><li>An accessible Visual dBASE 7 Report (.rep)</li>" l2 += "<li>A Windows Folder for HTML (static reports)</li><li>The WIndows folder assigned to CGI-Bin (live reports)</li></ul>" text = l2 pageno = 19 endwith this.RECTANGLE6 = new RECTANGLE(this) with (this.RECTANGLE6) left = 95 top = 212 width = 352 height = 49 metric = 6 // Pixels text = "Select Report Type" colorNormal = "BtnText/BtnFace" fontSize = 8 pageno = 19 endwith this.STATICREPORTRADIO = new RADIOBUTTON(this) with (this.STATICREPORTRADIO) height = 24 left = 150 top = 231 width = 110 text = "Static Report" metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 group = true value = true pageno = 19 endwith this.LIVEREPORTRADIO = new RADIOBUTTON(this) with (this.LIVEREPORTRADIO) height = 24 left = 305 top = 231 width = 86 text = "Live Report" metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 group = false value = false pageno = 19 endwith this.IMAGE25 = new IMAGE(this) with (this.IMAGE25) height = 13 left = 83 top = 35 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 19 borderStyle = 3 // None endwith this.IMAGE26 = new IMAGE(this) with (this.IMAGE26) height = 13 left = 83 top = 132 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 19 borderStyle = 3 // None endwith this.PUBLISHREPORTFIELD = new ENTRYFIELD(this) with (this.PUBLISHREPORTFIELD) onChange = class::PUBLISHREPORTFIELD_ONCHANGE height = 20 left = 98 top = 98 width = 285 metric = 6 // Pixels colorHighLight = "" fontSize = 8 value = " " pageno = 20 borderStyle = 7 // Client endwith this.PUBLISHCGIFIELD = new ENTRYFIELD(this) with (this.PUBLISHCGIFIELD) onChange = class::PUBLISHCGIFIELD_ONCHANGE height = 20 left = 98 top = 187 width = 285 metric = 6 // Pixels colorHighLight = "" fontSize = 8 value = " " pageno = 20 borderStyle = 7 // Client endwith this.CGIFOLDERLABEL = new TEXT(this) with (this.CGIFOLDERLABEL) height = 14 left = 98 top = 168 width = 321 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Enter or select the Windows folder assigned to CGI-Bin" pageno = 20 endwith this.TEXT47 = new TEXT(this) with (this.TEXT47) height = 14 left = 98 top = 77 width = 321 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Enter or select the report (.rep) to publish to your Web site." pageno = 20 endwith this.TEXT48 = new TEXT(this) with (this.TEXT48) height = 22 left = 82 top = 5 width = 315 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontName = "Times New Roman" fontSize = 12 fontBold = true text = "<h3>Report File And CGI Folder</h3>" pageno = 20 endwith this.PUBLISHREPORTBUTTON = new PUSHBUTTON(this) with (this.PUBLISHREPORTBUTTON) onClick = class::PUBLISHREPORTBUTTON_ONCLICK height = 19 left = 396 top = 98 width = 30 text = "" metric = 6 // Pixels upBitmap = "RESOURCE #148" group = false colorNormal = "BtnText/BtnFace" pageno = 20 value = false endwith this.PUBLISHCGIBUTTON = new PUSHBUTTON(this) with (this.PUBLISHCGIBUTTON) onClick = class::PUBLISHCGIBUTTON_ONCLICK height = 19 left = 396 top = 187 width = 30 text = "" metric = 6 // Pixels upBitmap = "RESOURCE #148" group = false colorNormal = "BtnText/BtnFace" pageno = 20 value = false endwith this.IMAGE28 = new IMAGE(this) with (this.IMAGE28) height = 13 left = 82 top = 78 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 20 borderStyle = 3 // None endwith this.IMAGE29 = new IMAGE(this) with (this.IMAGE29) height = 13 left = 82 top = 169 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 20 borderStyle = 3 // None endwith this.TEXT49 = new TEXT(this) with (this.TEXT49) height = 14 left = 97 top = 131 width = 302 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Enter or select a Visual dBASE 7 report (.rep)" pageno = 17 endwith this.FIRSTREPORTFIELD = new ENTRYFIELD(this) with (this.FIRSTREPORTFIELD) onChange = class::FIRSTREPORTFIELD_ONCHANGE height = 19 left = 97 top = 151 width = 313 metric = 6 // Pixels colorHighLight = "" fontSize = 8 value = " " pageno = 17 borderStyle = 7 // Client endwith this.TEXT51 = new TEXT(this) with (this.TEXT51) height = 28 left = 98 top = 35 width = 302 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "This Wizard uses a Visual dBASE report (.rep) to return data that matches the user's query." pageno = 17 endwith this.IMAGE1 = new IMAGE(this) with (this.IMAGE1) height = 13 left = 83 top = 34 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 17 borderStyle = 3 // None endwith this.IMAGE2 = new IMAGE(this) with (this.IMAGE2) height = 13 left = 83 top = 132 width = 13 metric = 6 // Pixels dataSource = "FILENAME Arrow.bmp" alignment = 4 // True Size pageno = 17 borderStyle = 3 // None endwith this.FIRSTREPORTBUTTON = new PUSHBUTTON(this) with (this.FIRSTREPORTBUTTON) onClick = class::FIRSTREPORTBUTTON_ONCLICK height = 19 left = 419 top = 151 width = 31 text = "" metric = 6 // Pixels upBitmap = "RESOURCE #148" group = false colorNormal = "BtnText/BtnFace" pageno = 17 value = false endwith this.RECTANGLE5 = new RECTANGLE(this) with (this.RECTANGLE5) left = 98 top = 233 width = 347 height = 42 metric = 6 // Pixels text = "Align Labels and Fields" colorNormal = "BtnText/BtnFace" fontSize = 8 pageno = 6 endwith this.ALIGNDATALEFTRADIO = new RADIOBUTTON(this) with (this.ALIGNDATALEFTRADIO) height = 15 left = 150 top = 251 width = 111 text = "To left of page" metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 group = true value = true pageno = 6 endwith this.ALIGNDATACENTERRADIO = new RADIOBUTTON(this) with (this.ALIGNDATACENTERRADIO) height = 15 left = 279 top = 251 width = 114 text = "Center of page" metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 group = false value = false pageno = 6 endwith this.TEXT33 = new TEXT(this) with (this.TEXT33) height = 14 left = 97 top = 131 width = 302 metric = 6 // Pixels colorNormal = "BtnText/BtnFace" fontSize = 8 text = "Enter or select a Visual dBASE 7 report (.rep)" pageno = 18 endwith this.rowset = this.wiztemp1.rowset ///////////////// Method: PageChange //////////////////////////////// ///////////////// Purpose: Main Page Navigation method /////////////// ///////////////// Params: nNum: +1 for forward, -1 for back Function PageChange(nNum) // if back button pressed if nNum < 0 form.nCurrPage = iif(form.nCurrPage = 1,1,form.nCurrPage-1) // relative pagination, to accomodate three wizards with // interleaved pages // save any input in grid if form.pageno = 6 if not form.wiztemp1.rowset.endofset form.wiztemp1.rowset.save() endif endif // else, if current page is last one in set elseif form.nCurrPage = alen(form.aPages,1) return // do nothing, you're already on the last page. // else, next button pressed else /* The following section tests as needed BEFORE page change is done in case page change is not allowed. Normally "Next" button status does validation, but that's not possible in all cases. */ if form.pageno = 3 if not form.validatePaths() msgbox('Paths invalid or URL or Filename missing!') form.nextbutton.enabled = .f. return endif elseif form.pageno = 4 /*If this is "data source" page, read in datamodule and populate the fields array. Note that this breaks the "activate next button" validation interface, but there's simply no other control except page-change that suits to verify data source! */ // load in custom class and parse data module/table if empty(form.DataSourceField.value) msgbox('Cannot have empty data source!','No file',16) return false endif form.oLib = New SourceFields() form.aSelectedFields = new array() form.aAvailableFields = form.oLib.GetFields(form.DataSourceField.value) // if nothing found, can't go on if alen(form.aAvailableFields,1) = 0 msgbox('No field objects found in Data Module or table','No Data',16) return endif // set up datasource of fields listbox form.AvailableFieldsList.DataSource = 'ARRAY form.aAvailableFields' form.SelectedFieldsList.DataSource = 'ARRAY form.aSelectedFields' elseif form.pageno = 6 // save any input in grid if not form.wiztemp1.rowset.endofset form.wiztemp1.rowset.save() endif elseif form.pageno = 19 if form.LiveReportRadio.value form.CGIFolderLabel.text = ; "Enter or select the Windows folder assigned to CGI-Bin" else form.CGIFolderLabel.text = ; "Enter or select the target Web Site folder" endif endif /* This section performs any preparation options required before moving to next page */ // Increment current page ++ form.nCurrPage endif // Get actual Pageno from Pages array nAbsolutePage = form.aPages[form.nCurrPage] /////////// New Page stuff, only fired going forward if nNum > 0 if nAbsolutePage = 4 // paths and URLS class::ValidatePaths() elseif nAbsolutePage = 1 form.Wiztemp1.Active = false elseif nAbsolutePage = 5 // Select fields class::SetFieldsButtonStatus() // update "enabled" on fields buttons elseif nAbsolutePage = 6 // Enter Labels class::UpdateGridData() // update table datalinked to Grid elseif nAbsolutePage =14 ////// set up "finish files" for display form.aFinish = new array() if form.cWizardType = 'Publish' cName = trim(form.PublishReportField.value) if at('\',cName) > 0 cName = substr(cName,rat('\',cName)+1) endif if at('.',cName) > 0 cName = substr(cName,1,at('.',cName)-1) endif if form.LiveReportRadio.value form.aFinish.Add('In your CGI-Bin folder:') form.aFinish.add(' '+cName+'.bat') form.aFinish.add(' '+cName+'2.exe') form.aFinish.add(' '+cName+'.prg') else form.aFinish.add('In your Web site folder:') form.aFinish.add(' '+cName+'.htm') endif else // query if form.cWizardType = 'Query' cName = trim(form.FirstReportField.value) else // Data-Entry cName = trim(form.FileNameField.value) Endif if at('\',cName) > 0 cName = substr(cName,rat('\',cName)+1) endif if at('.',cName) > 0 cName = substr(cName,1,at('.',cName)-1) endif form.aFinish.Add('In your CGI-Bin folder:') form.aFinish.add(' '+cName+'.bat') form.aFinish.add(' '+cName+'2.exe') if form.cWizardType = 'Query' and form.DrillDownRadio.value form.aFinish.add(' '+cName+'3.exe') endif form.aFinish.add(' '+cName+'.prg') form.aFinish.add('In your Web site folder:') form.aFinish.add(' '+cName+'.htm') endif form.FinishList.DataSource = 'ARRAY form.aFinish' endif endif // General rules if form.nCurrPage = 1 form.text = 'Visual dBASE 7 Web Wizards' else form.text = form.cWizardType+' Web Wizard Step '+ltrim(str(form.nCurrPage-1,3))+; ' of '+ltrim(str(alen(form.aPages,1)-1,3)) endif form.PageLogo.visible = not (nAbsolutePage = 1) form.BackButton.enabled = not (nAbsolutePage = 1) form.NextButton.Text = iif(form.nCurrPage = alen(form.aPages,1),; '&Finish','&Next') form.CancelButton.Text = '&Cancel' // Most pages that require validation before "Next" enabled // are handled in individual page changes above, inclucing // methods such as ValidatePaths() on page 2 if nNum < 0 and nAbsolutePage # 1 form.NextButton.enabled = true elseif nAbsolutePage = 1 form.NextButton.enabled = false elseif nAbsolutePage = 16 form.NextButton.enabled = ( form.OptionList.count() > 0 ) elseif form.nCurrpage = 2 // if intro page form.NextButton.enabled = true endif // Change page form.pageno = form.aPages[form.nCurrPage] // Method: UpdateGridData///////////////////////////////////////// // Fill table with values in selected fields array for setting // labels corresponding to fields function UpdateGridData local n aTempFields = new array() // Create temp array for current // Grid field values oRowset = form.Wiztemp1.Rowset // short reference for easy coding oRowset.first() // go to first row in set // Go through rows in grid and build // temporary array of contents of grid do while not oRowset.endofset /* store current labels for fields in multi-dim array [n,1] = Field field [n,2] = Label field */ // only store rows for fields that have labels // this array will be a label "lookup' table if not empty (oRowset.fields['Label'].value) // add array element aTempfields.resize(alen(aTempfields,1)+1,2) n = alen(aTempFields,1) // get subscript of new element // store grid rowset values aTempFields[n,1] = trim(oRowset.fields['Field'].value) aTempFields[n,2] = trim(oRowset.fields['Label'].value) endif oRowset.next() enddo // Get rid of all grid rows form.Wiztemp1.active = false _app.databases[1].emptytable('Wiztemp.dbf') form.Wiztemp1.active = true oRowset = form.Wiztemp1.rowset ////// Transfer data from "selected fields" array to grid rowset for n = 1 to alen(form.aSelectedFields) // If array element has a real label in it if len(trim(form.aSelectedFields[n])) > 0 oRowset.BeginAppend() oRowset.fields['field'].value = form.aSelectedFields[n] oRowset.fields['label'].value = class::GetLabel(aTempfields,; form.aSelectedFields[n]) oRowset.Save() endif next aTempFields = '' // stub out temporary array object oRowset.first() // reset to first field in list ///// Method: GetLabel traverses temporary array and retrieves any ///// labels that correspond to selected field names ///// Params: aTemp - 2 dim temp array ///// function GetLabel(aTemp,cField) local n cField = trim(cField) // traverse temporary array label "lookup table" for n = 1 to alen(aTemp,1) // if field is found if aTemp[n,1] == cField // and a label exists if not empty(aTemp[n,2]) // return the label return aTemp[n,2] endif endif next return '' // return nul, nothing found function HELPBUTTON_onClick help return // {Linked Method} form.onClick function SELECTALLBUTTON_onClick // copy "available" array to "selected" array local n for n = 1 to alen(form.aAvailableFields) form.aSelectedFields.add(form.aAvailableFields[n]) next form.aAvailableFields = new Array() form.SelectedFieldsList.DataSource = 'ARRAY form.aSelectedFields' form.AvailableFieldsList.DataSource = 'ARRAY form.aAvailableFields' Class::SetFieldsButtonStatus() // set status for "move" buttons return // {Linked Method} form.onClick function DESELECTALLBUTTON_onClick // copy "selected array" to "available array" local n for n = 1 to alen(form.aSelectedFields) form.aAvailableFields.Add(form.aSelectedFields[n]) next form.aSelectedFields = new Array() form.SelectedFieldsList.DataSource = 'ARRAY form.aSelectedFields' form.AvailableFieldsList.DataSource = 'ARRAY form.aAvailableFields' Class::SetFieldsButtonStatus() // set status for "move" buttons return // {Linked Method} form.onClick function DESELECTONEBUTTON_onClick if form.SelectedFieldsList.cursel <= 0 return Class::SetFieldsButtonStatus() // set status for "move" buttons endif // workaround for listbox cursor not changing after "deletes" from // datasource array Local nCursel nCursel = iif(form.AvailableFieldsList.cursel > ; alen(form.aAvailableFields,1),; alen(form.aAvailableFields,1),; form.AvailableFieldsList.cursel) // insert value into "available" listbox form.aAvailableFields.resize(alen(form.aAvailableFields)+1) form.aAvailableFields.insert(nCursel+1) form.aAvailableFields[nCursel+1] = ; form.SelectedFieldsList.value // delete element from "selected" listbox if alen(form.aSelectedFields,1) = 1 form.aSelectedFields = new array() form.SelectedFieldsList.Cursel = 0 else form.aSelectedFields.delete(form.SelectedFieldsList.cursel) form.aSelectedFields.Resize(alen(form.aSelectedFields,1)-1) if form.SelectedFieldsList.Cursel > alen(form.aSelectedFields,1) form.SelectedFieldsList.Cursel = alen(form.aSelectedFields,1) endif endif // re - datasource form.SelectedFieldsList.DataSource = "Array form.aSelectedFields" form.AvailableFieldsList.DataSource = "Array form.aAvailableFields" Class::SetFieldsButtonStatus() // set status for "move" buttons return // {Linked Method} form.key function FILENAMEFIELD_key(nChar, nPosition,bShift,bControl) class::validatepaths() return true function FILENAMEFIELD_onChange cRight = this.value // remove folders, if any if at('\',this.value) > 0 cRight = substr(cRight,rat('\',cRight)+1) endif // remove extensions, if any if at('.',this.value) >0 cRight = substr(cRight,1,at('.',cRight)-1) endif this.value = cRight class::ValidatePaths() return true //////////////////////Method: SelectOneButton_OnCLick ///////////////// //////////////////////Purpose: Moves field from "available listbox to ////////////////////// "selected" listbox // {Linked Method} form.onClick function SELECTONEBUTTON_onClick if form.AvailableFieldsList.Cursel <= 0 return endif Local nCursel // workaround for no "0" cursel on empty listbox nCursel = form.SelectedFieldsList.Cursel //nCursel = iif(alen(form.aSelectedFields,1) = 0,0,; form.SelectedFieldsList.cursel) // insert value into "selected" listbox form.aSelectedFields.resize(alen(form.aSelectedFields,1)+1) form.aSelectedFields.insert(nCursel+1) form.aSelectedFields[nCursel+1] = ; form.availableFieldsList.value if alen(form.aAvailableFields,1) = 1 form.aAvailableFields = new array() else form.aAvailableFields.delete(form.AvailableFieldsList.cursel) form.aAvailableFields.Resize(alen(form.aAvailableFields,1)-1) endif form.SelectedFieldsList.DataSource = "Array form.aSelectedFields" form.AvailableFieldsList.DataSource = "Array form.aAvailableFields" form.SelectedFieldsList.Cursel = nCursel+1 class::SetFieldsButtonStatus() return // Adds option to listbox for query by combobox function ADDOPTIONBUTTON_onClick if empty(form.OptionField.value) return false endif nCursel = form.OptionList.Cursel form.aOptions.resize(alen(form.aOptions,1)+1) form.aOptions.insert(nCursel+1) form.aOptions[nCursel+1] = form.OptionField.value form.OptionList.DataSource = 'ARRAY form.aOptions' form.NextButton.enabled = form.OptionList.count() > 0 form.OptionList.Cursel = nCursel+1 form.OptionField.SetFocus() return true // Removes option from listbox for query by combobox function REMOVEOPTIONBUTTON_OnClick if alen(form.aOptions,1) = 0 return false elseif alen(form.aOptions,1) = 1 form.aOptions = new array() else nCursel = form.OptionList.Cursel form.aOptions.Delete(form.optionlist.cursel) form.aOptions.resize(alen(form.aOptions,1)-1) endif form.OptionList.DataSource = 'ARRAY form.aOptions' form.NextButton.enabled = form.Optionlist.count() > 0 if alen(form.aOptions,1) >= (nCursel-1) form.OptionList.Cursel = nCursel - 1 else form.Optionlist.Cursel = alen(form.aOptions,1) endif form.optionfield.setfocus() return true function SECONDREPORTBUTTON_onClick cReport = getfile('*.rep','Drill-Down Report',.t.) if not empty(cReport) form.SecondReportField.value = cReport endif // to be implemented later - class::LoadSecondReportLists() return function SECONDREPORTFIELD_onChange if empty(this.value) // do nothing elseif at('.REP',upper(this.Value)) = 0 msgbox('Visual dBASE 7 .rep file required!','Wrong file type',16) else // to be implemented later //class::LoadSecondReportLists() endif // to be implemented later class::ValidateSecondReport() function LoadSecondReportLists form.oLib = New SourceFields() form.aKeyFields = form.oLib.GetFields(form.SecondReportField.value,true) // if nothing found, can't go on if alen(form.aKeyFields,1) = 0 msgbox('No field objects found in report','No Data',16) else form.SecondReportFieldList.DataSource = 'ARRAY form.aKeyFields' endif // set up datasource of fields listbox form.oLib = '' //stub out reference ////////Method: ValidateSecondReport ////////Purpose: Controls Next Button for second drill-down report page function ValidateSecondReport if form.SecondReportFieldList.count() = 0 or; form.SecondReportTextList.count() = 0 or ; empty(form.SecondReportField.value) or ; not file(trim(form.SecondReportField.value)) form.nextbutton.enabled = false else form.NextButton.enabled = true endif // {Linked Method} form.onClick function BACKBUTTON_onClick class::pageChange(-1) return // {Linked Method} form.onClick function BACKGROUNDCOLORBUTTON_onClick cColor = getColor() if len(trim(cColor)) >0 form.BackgroundColorField.value = ; form.FirstpageTitle.ColorToHex(cColor) form.BackColorDisplay.ColorNormal = 'N/'+; form.BackgroundColorField.value class::UpdateBackGrounds() endif return // {Linked Method} form.onChange function BACKGROUNDCOLORFIELD_onChange // makes sure color notation is consistent with VdB "0x" if substr(this.value,1,1) = '#' this.value = substr(this.value,2) endif if substr(this.value,1,2) # '0x' this.value = '0x'+this.value endif // set color value for display form.BackColorDisplay.Colornormal = 'N/'+cColor class::UpdateBackGrounds() return // {Linked Method} form.onSelChange function BACKGROUNDLIST_onSelChange form.BackgroundImageField.value = this.value if this.value = 'None' form.BackGroundDisplay.DataSource = Null else form.BackgroundDisplay.DataSource = "FILENAME "+this.value endif form.refresh() class::UpdateBackGrounds() return // {Linked Method} form.onClick function CANCELBUTTON_onClick form.close() return function FinishButton_OnClick set proc to wizout.cc addi form.out= new Wizout(form) form.finishLabel.text = 'Streaming HTML...' if form.out.StreamHtml() if form.out.StreamCGI() Form.CancelButton.Text ='&Close' form.Finishlabel.text = 'Done...' endif endif form.out = '' form.Progress1.value = 0 // {Linked Method} form.onClick function CGIPATHBUTTON_onClick Local cDir cDir = iif(len(trim(form.CGIPathField.value)) > 0,; trim(form.CGIPathField.value),Set('Directory')) cDir = GetDirectory(cDir) if len(trim(cDir)) > 0 form.CGIPathField.value = cDir endif class::ValidatePaths() return // {Linked Method} form.onClick function DATAENTRYBUTTON_onClick form.cWizardType = 'Data Entry' class::CreatePageNavigationArray() //Empty temporary table completely form.wiztemp1.active = false _app.databases[1].emptyTable('Wiztemp.dbf') //Refresh the query form.wiztemp1.active = true //Instantiate new array for "selected fields" form.aSelectedFields = new Array() form.intro.text = "<p>This Data-Entry Web Wizard helps you create an application that gathers data from user-input at the Browser, returns the data to the server and stores it in a server-side database.</p><p></p><p></p><p>This wizard will generate a data-gathering HTML page and a " form.intro.text += "server-side executable application (including modifiable source code).</p><p></p><p></p><p>In order to use this Wizard, you will need to provide:</p><ul><li>The Windows Path to your Web Site folder.</li><li>The URL (Web address) as defined in your Web Serv" form.intro.text += "er for CGI-Bin.</li><li>The Windows Path to your CGI-Bin folder.</li><li>An accessible Data Module or Table</li></ul><p></p>" form.introtitle.text = "<h3>Data-Entry Web Wizard</h3>" form.PageLogo.datasource = 'FILENAME Dataentr.bmp' class::PageChange(1) return function DRILLDOWNBUTTON_onClick form.cWizardType = 'Query And Response' form.aOptions = new array() form.intro.text = "This Query And Response Web Wizard helps you create an application in which the user enters a query in the Browser which is returned to the server which, in turn, responds with a Visual dBASE 7 HTML report.<p></p><p></p><p>This wizard will generate an HTML query page and a " form.intro.text += "server-side executable application (including modifiable source code).</p><p></p><p></p><p>In order to use this Wizard, you will need to provide:</p><ul><li>The Windows Path to your Web Site folder.</li><li>The URL (Web address) as defined in your Web Serv" form.intro.text += "er for CGI-Bin.</li><li>The Windows Path to your CGI-Bin folder.</li><li>At least one accessible report (.rep)</li></ul><p></p>" form.introtitle.text = "<h3>Query And Response Web Wizard</h3>" form.PageLogo.DataSource = 'FILENAME Query.bmp' class::CreatePageNavigationArray() class::PageChange(1) return function DRILLDOWNRADIO_onChange class::SetupQueryArray() return function ENTRYFIELDRADIO_onChange Class::SetupQueryArray() return function PUBLISHBUTTON_OnClick form.cWizardType = 'Publish' class::CreatePageNavigationArray() form.PageLogo.DataSource = 'FILENAME Reports.bmp' class::PageChange(1) return function PUBLISHREPORTBUTTON_onClick cReport = getfile('*.rep','VdB 7 Report',.t.) if not empty(cReport) form.publishreportfield.value = cReport endif class::CheckPublishFilesAndFolders() return true function PUBLISHREPORTFIELD_onChange if empty(this.value) //do nothing elseif at('.REP',upper(this.value)) = 0 msgbox('Not a Visual dBASE 7 Report (.rep) file!','Wrong Type',16) elseif not file(this.value) msgbox('File does not exist: '+this.value,'No Such File',16) endif class::CheckPublishFilesAndFolders() return true function CheckPublishFilesAndFolders if empty(form.PublishReportField.value) or ; empty(form.PublishCGIField.value) Form.NextButton.Enabled = false return false elseif not class::IsFolderOk(Form.PublishCGIField.value) form.NextButton.Enabled = false return false elseif at('.REP',upper(form.PublishReportField.value)) = 0 or; not file(form.PublishReportField.value) form.NextButton.Enabled = false return false endif form.NextButton.Enabled = true return true function COMBOBOXRADIO_onChange class::SetupQueryArray() return function PUBLISHCGIBUTTON_onClick cPath = trim(getDirectory()) if not empty(cPath) if right(cPath,1) # '\' cPath += '\' endif form.PublishCGIField.value = cPath class::CheckPublishFilesAndFolders() endif return function PUBLISHCGIFIELD_onChange if empty(this.value) //do nothing elseif not class::isFolderOk(this.value) msgbox('Not a valid folder','Bad Folder',16) else cPath = trim(this.Value) if right(cPath,1) # '\' cPath+='\' endif endif class::CheckPublishFilesAndFolders() return true // {Linked Method} form.onClick function DATAMODULELOOKUPBUTTON_onClick local cFile cFile = trim(getfile('*.dbf;*.db;*.dmd')) if not empty(cFile) form.DataSourceField.value = cFile endif return // {Linked Method} form.onOpen function form_onOpen form.WizardType = ' ' // init arrays for selecting fields from query form.aAvailableFields = new array() form.aSelectedFields = new array() //Get all the graphic filenames from folder and //dataSource the BacgroundList form.aPix = new array() form.aPix1 = new array() form.aPix2 = new array() //Get files from folder form.aPix1.Dir('*.jpg') form.aPix2.Dir('*.jpg') form.aPix.add('None') //Consolidate into a single array for n = 1 to alen(form.aPix1,1) form.aPix.add(form.aPix1[n,1]) next for n = 1 to alen(form.aPix2,1) form.aPix.add(form.aPix2[n,1]) next form.aPix1 = '' // remove references/kill arrays form.aPix2 = '' // no longer needed // datasource the background listbox form.BackgroundList.DataSource = 'ARRAY form.aPix' form.BackgroundDisplay.DataSource = Null return // {Linked Method} form.open function form_open class::Setup() return super::open() // {Linked Method} form.readModal function form_readmodal class::Setup() return super::readmodal() // Gets Home Image file, tests it and displays it function HOMEIMAGEBUTTON_onClick cFile = trim(getfile('*.gif;*.jpg','Home Image',.t.)) if not empty(cFile) if at('.JPG',upper(cFile)) = 0 and ; at('.GIF',upper(cFile)) = 0 if msgbox('Not a standard Web format! Continue anyway?',; 'Graphic Format',36) # 6 return endif endif Form.HomeImageField.value = trim(cFile) Form.MailHomeList.Cursel = 1 //Attempt to display this image Try form.HomeImage.DataSource = 'FILENAME '+trim(cFile) catch (Exception e) Msgbox('Error displaying this image format','Display Error',16) Endtry endif return // Tests image file name typed in for "home" image function HOMEIMAGEFIELD_onChange if form.UseTextRadio.value //If this is just text return true elseif empty(this.value) //If Blank return true endif //Attempt to display this image cFile = trim(this.value) if not empty(cFile) if at('.JPG',upper(cFile)) = 0 and ; at('.GIF',upper(cFile)) = 0 if msgbox('Not a standard Web format! Continue anyway?',; 'Graphic Format',36) # 6 return false endif endif endif Try form.HomeImage.DataSource = 'FILENAME '+trim(cFile) catch (Exception e) Msgbox('Error displaying this image format','Display Error',16) Endtry return true // Gets Home Image file, tests it and displays it function MAILIMAGEBUTTON_onClick cFile = trim(getfile('*.gif;*.jpg','Mail Image',.t.)) if not empty(cFile) if at('.JPG',upper(cFile)) = 0 and ; at('.GIF',upper(cFile)) = 0 if msgbox('Not a standard Web format! Continue anyway?',; 'Graphic Format',36) # 6 return endif endif Form.MailImageField.value = trim(cFile) Form.MailHomeList.Cursel = 1 //Attempt to display this image Try form.MailImage.DataSource = 'FILENAME '+trim(cFile) catch (Exception e) Msgbox('Error displaying this image format','Display Error',16) Endtry endif return //Tests image file typed in for "Mail Image' function MAILIMAGEFIELD_onChange if form.UseTextRadio.value //If this is just text return true elseif empty(this.value) //If Blank return true endif //Attempt to display this image cFile = trim(this.value) if not empty(cFile) if at('.JPG',upper(cFile)) = 0 and ; at('.GIF',upper(cFile)) = 0 if msgbox('Not a standard Web format! Continue anyway?',; 'Graphic Format',36) # 6 return false endif endif endif Try form.MailImage.DataSource = 'FILENAME '+trim(cFile) catch (Exception e) Msgbox('Error displaying this image format','Display Error',16) Endtry return true //// Method: ImageorText //// Purpose: Sets controls for Image or Text for Home and Mail function Imageortext if form.useTextRadio.Value form.HomeLabel.text = 'Home Text' form.HomeImageButton.Enabled = false form.MailLabel.text = 'Mail Text' form.MailImageButton.Enabled = false if at('.',form.HomeImageField.value) > 0 form.HomeImageField.value = '' endif if at('.',form.MailImageField.value) > 0 form.HomeImageField.value = '' endif form.HomeImage.DataSource = '' form.MailImage.DataSource = '' else form.HomeLabel.Text = 'Home Image' form.HomeImageButton.Enabled = true form.MailLabel.Text = 'Mail Text' form.MailImageButton.Enabled = true endif return true function setup // Set the text for the main Wizard Type buttons on page 1 this.home = class::SetHomePath() class::ReadIni() this.DataEntryButton.text = 'Remote '+chr(13)+; 'Data'+chr(13)+'Entry' this.DrillDownButton.text = 'Query'+chr(13)+; 'And'+chr(13)+'Response' this.PublishButton.text = 'Publish'+chr(13)+; 'Live && Static Reports' // declare vars for page navigation this.nCurrPage = 1 this.aPages = new array() ////////////////Method: SetHomePath ////////////////Purpose: Gets folder from which this app was launched function SetHomePath cPath = program(0) cPath = substr(cPath,1,rat('\',cPath)) return cPath // {Linked Method} form.onClick function HTMLPATHBUTTON_onClick //Get folder for HTML page Local cDir cDir = iif(len(trim(form.HTMLPathField.value)) > 0,; trim(form.HTMLPathField.value),Set('Directory')) cDir = GetDirectory(cDir) if len(trim(cDir)) > 0 form.HTMLPathField.value = cDir endif class::ValidatePaths() return // Load listbox selections on Mail/Home image listbox function MAILHOMELIST_onSelChange if this.value = 'Animated Grey' form.homeimage.datasource = 'FILENAME '+form.cloadPath+'Home.gif' form.homeimagefield.value = form.cLoadPath+"Home.gif" form.mailimage.datasource = 'FILENAME '+form.cLoadPath+'Mail.gif' form.MailImageField.value = form.cLoadPath+'Mail.gif' elseif this.value = 'Brass' form.homeimage.datasource = 'FILENAME '+form.cloadPath+'BrasHome.gif' form.mailimage.datasource = 'FILENAME '+form.cloadPath+'BrasMail.gif' form.homeimagefield.value = form.cLoadPath+'BrasHome.gif' form.mailimagefield.value = form.cLoadPath+'BrasMail.gif' elseif this.value = 'Drop Shadow' form.homeimage.datasource = 'FILENAME '+form.cloadPath+'DropHome.gif' form.mailimage.datasource = 'FILENAME '+form.cloadPath+'DropMail.gif' form.homeimagefield.value = form.cLoadPath+'DropHome.gif' form.mailimagefield.value = form.cLoadPath+'DropMail.gif' elseif this.value = 'Chrome' form.homeimage.datasource = 'FILENAME '+form.cloadPath+'ChrmHome.gif' form.mailimage.datasource = 'FILENAME '+form.cloadPath+'ChrmMail.gif' form.homeimagefield.value = form.cLoadPath+'Chrmhome.gif' form.mailimagefield.value = form.cLoadPath+'ChrmMail.gif' //form.mailimage.datasource = 'FILENAME ChrmMail.gif' elseif this.value = 'None' form.homeimage.datasource = '' form.mailimage.datasource = '' form.homeimagefield.value = '' form.mailimagefield.value = '' endif return Class::SetImageFieldValue() return true ////////////////Method: SetImageFieldValue////////////////// ////////////////Purpose: Sets the value of the entryfield that //////////////// contains the path to the image function SetImageFieldValue if this.value = 'None' form.homeimagefield.value = '' form.mailimagefield.value = '' else form.homeimagefield.value = substr(form.homeimage.datasource,; at('FILENAME ',form.homeimage.datasource)+1) form.mailimagefield.value = substr(form.mailimage.datasource,; at('FILENAME ',form.mailimage.datasource)+1) endif return true // {Linked Method} form.onClick function NEXTBUTTON_onClick if this.text = '&Finish' class::FinishButton_OnClick() else class::pageChange(1) endif return //// Method: UpdateBackgrounds function UpdateBackgrounds local cFilename // used to format for long filenames with spaces if upper(form.BackgroundImageField.value) = 'NONE' or; empty(form.BackgroundImageField.value) form.background = "" if not empty(form.BackgroundColorField.value) form.colornormal = trim(form.BackGroundColorField.value) endif form.Refresh() else form.ColorNormal = 'BtnFace' form.Background = 'FILENAME '+trim(form.BackGroundImageField.value) endif return true //// Method: CreatePageNavigationArray //// Purpose: Manages "virtual pages" for three wizards on one form function CreatePageNavigationArray if form.cWizardType = 'Data Entry' // First, set up which pages go where form.aPages = new Array(14) form.aPages[1] = 1 // Wizard Selection Page form.aPages[2] = 2 // Introduction page form.aPages[3] = 3 // Get Folders/Paths form.aPages[4] = 4 // Get Data Source Page form.aPages[5] = 5 // Get Fields page form.aPages[6] = 6 // Get Labels page form.aPages[7] = 7 // Appearance form.aPages[8] = 8 // Logo form.aPages[9] = 9 // Get First Page Title form.aPages[10] = 10 // Get Text Above Data form.aPages[11] = 11 // Get Text Below Data form.aPages[12] = 12 // Get Response Page Text form.aPages[13] = 13 // Mail and home form.aPages[14] = 14 // Finish elseif form.cWizardType = 'Query And Response' class::SetupQueryArray() else //Publish Wizard form.aPages = new Array(4) form.aPages[1] = 1 //Wizard Selection Page form.aPages[2] = 19 //Intro-Select Report Type form.aPages[3] = 20 //Select Report/CGI Folder form.aPages[4] = 14 //Finish endif /////////////////////Method:SetUpQueryArray////////////////////////// /////////////////////Purpose: Adjust query pages for combobox or ///////////////////// or entryfield query function SetupQueryArray if form.comboboxradio.value and form.DrillDownRadio.value form.aPages = new Array(14) form.aPages[1] = 1 //Wizard Selection Page form.aPages[2] = 2 //Introduction page form.aPages[3] = 3 //Get Folders/Paths form.aPages[4] = 15 //Query page form.aPages[5] = 16 //Combobox Options form.aPages[6] = 17 //Report No. 1 form.aPages[7] = 18 //Report No. 2 form.aPages[8] = 7 //Appearance form.aPages[9] = 8 //Logo form.aPages[10] = 9 //Get First Page Title form.aPages[11] = 10 //Get Text Above Data form.aPages[12] = 11 //Get Text Below Data form.aPages[13] = 13 //Mail and Home form.aPages[14] = 14 //Finish elseif form.ComboboxRadio.Value form.aPages = new Array(13) form.aPages[1] = 1 //Wizard Selection Page form.aPages[2] = 2 //Introduction page form.aPages[3] = 3 //Get Folders/Paths form.aPages[4] = 15 //Query page form.aPages[5] = 16 //Combobox Options form.aPages[6] = 17 //Report No. 1 form.aPages[7] = 7 //Appearance form.aPages[8] = 8 //Logo form.aPages[9] = 9 //Get First Page Title form.aPages[10] = 10 //Get Text Above Data form.aPages[11] = 11 //Get Text Below Data form.aPages[12] = 13 //Mail and Home form.aPages[13] = 14 //Finish elseif form.DrillDownRadio.value form.aPages = new Array(13) form.aPages[1] = 1 //Wizard Selection Page form.aPages[2] = 2 //Introduction page form.aPages[3] = 3 //Get Folders/Paths form.aPages[4] = 15 //Query page form.aPages[5] = 17 //Report No. 1 form.aPages[6] = 18 //Report No. 2 form.aPages[7] = 7 //Appearance form.aPages[8] = 8 //Logo form.aPages[9] = 9 //Get First Page Title form.aPages[10] = 10 //Get Text Above Data form.aPages[11] = 11 //Get Text Below Data form.aPages[12] = 13 //Mail and Home form.aPages[13] = 14 //Finish else form.aPages = new Array(12) form.aPages[1] = 1 //Wizard Selection Page form.aPages[2] = 2 //Introduction page form.aPages[3] = 3 //Get Folders/Paths form.aPages[4] = 15 //Query page form.aPages[5] = 17 //Report No. 1 form.aPages[6] = 7 //Appearance form.aPages[7] = 8 //Logo form.aPages[8] = 9 //Get First Page Title form.aPages[9] = 10 //Get Text Above Data form.aPages[10] = 11 //Get Text Below Data form.aPages[11] = 13 //Mail and Home form.aPages[12] = 14 //Finish endif function SINGLEREPORTRADIO_onChange class::SetupQueryArray() return /////////////////////Method: Finish /////////////////////Purpose: Generates application function finish return true function FIRSTREPORTBUTTON_onClick local cReport cReport = getfile('*.rep','First Report',.t.) if not empty(cReport) form.firstReportField.value = cReport // to be implemented later class::SetupFirstReportFields() endif return function FIRSTREPORTFIELD_onChange form.nextbutton.enabled = false /* Temporarily removed - to be implemented later class::SetupFirstReportFields() // parse out the fields */ return true function FIRSTREPORTLIST_onSelChange class::ValidateFirstReportFields() return function SetupFirstReportFields set proc to webwizard.wfm addi if not file(form.FirstReportField.value) // checkto see if file exists msgbox('File "'+trim(this.value)+'" does not exist','Bad File Path',16) return false elseif at('.REP',upper(form.FirstReportField.value)) =0 msgbox('Must be a Visual dBASE 7 .rep file!','Wrong file type',16) return false endif form.oProcess = new form() with form.oProcess MDI = false autocenter = true scaleFontBold = false height = 4.5 canclose = {;return false} left = 30.4286 top = 4.9545 width = 40 text = "" onOpen = class::ProcessFirstReportFields endwith form.oProcess.oParent = form form.oProcess.TEXT1 = new TEXT(form.oProcess) with (form.oProcess.TEXT1) height = 0.7273 left = 11 top = .7 width = 16.4286 metric = 0 // Chars colorNormal = "BtnText/BtnFace" text = "Reading in report..." Endwith form.oProcess.PROGRESS1 = new PROGRESS(form.oProcess) with (form.oProcess.PROGRESS1) height = 0.7273 left = 11 top = 2.2 width = 16.4286 metric = 0 // Chars colorNormal = "BtnText/BtnFace" rangeMin = 0 rangeMax = 100 value = 0 Endwith form.oProcess.ReadModal() form.oProcess.Release() form.oProcess = '' class::ValidateFirstReportFields() return // This method is EXPORTED, sent as a function pointer to the // form created above so that the form will cover the processing // time taken by the method. Function ProcessFirstReportFields form.oLib = New SourceFields() form.progress1.value = 10 form.oParent.aFirstReportFields =; form.oLib.GetFields(form.oParent.FirstReportField.value,true) // if nothing found, can't go on if alen(form.oParent.aFirstReportFields,1) = 0 msgbox('No field objects found in Data Module or table','No Data',16) return endif form.progress1.value = 25 // set up datasource of fields listbox form.oParent.FirstReportList.DataSource =; 'ARRAY form.oParent.aFirstReportFields' form.oParent.FirstReportList.Cursel = 1 form.progress1.value = 50 form.oLib = New TextFields() form.progress1.value = 65 form.oParent.aTextFields= ; form.oLib.GetTextFields(form.oParent.FirstReportField.value,true) if alen(form.oParent.aTextFields,1) = 0 msgbox('Cannot find text objects in first report!','Missing Data',16) endif form.progress1.value = 80 form.oParent.SecondReportTextList.DataSource = 'ARRAY form.oParent.aTextFields' form.oLib = '' form.progress1.value = 100 form.canclose = {;return true} form.close() return true function ValidateFirstReportFields form.NextButton.Enabled = form.FirstReportList.cursel > 0 return true function FIRSTRESPONSEBUTTON_onClick cReport = getfile('*.REP') if len(trim(cReport)) > 0 form.firstresponsefield.value = cReport endif return function SetFieldsButtonStatus /* these buttons move fields from "available" to "selected" and back. Enabled depends on whether there is data available in either listbox to be moved */ form.SelectOneButton.enabled = alen(form.aAvailableFields,1) > 0 form.SelectAllButton.enabled = form.SelectOneButton.enabled form.deselectOneButton.enabled = alen(form.aSelectedFields,1) > 0 form.DeselectAllButton.enabled = form.DeselectOneButton.enabled form.nextbutton.enabled = alen(form.aSelectedFields,1) > 0 return true // {Linked Method} form.key function URLField_Key(nChar) class::ValidatePaths(this.value+chr(nChar)) return True // Validates folders and presence of URLs on page 2 // {Linked Method} form.onChange // {Linked Method} form.onChange function ValidatePaths(cUrl,cFile) if empty(cUrl) cUrl = Form.UrlField.value endif if empty(cFile) cFile = form.FileNameField.value endif if empty(form.CGIPathField.value) or ; not class::IsFolderOk(form.CGIPathField.value) return false elseif empty(form.HTMLPathField.value) or ; not Class::IsFolderOk(form.HTMLPathField.value) return false elseif empty(cUrl) return false elseif empty(cFile) return false endif form.nextbutton.enabled = true return true ///Tests is folder exists function IsFolderOk(cPath) local cCurrPath cCurrPath = set('Directory') //attemp a change directory, if fails, return false try cd (cPath) Catch (Exception e) cd (cCurrPath) return false endtry cd (cCurrPath) return true // {Linked Method} form.onClick function LOGOBUTTON_onClick cLogo=getfile('*.jpg;*.gif') if len(trim(cLogo)) > 0 form.LogoImageField.value = cLogo try form.logoimage.datasource = 'FILENAME '+trim(form.LogoImageField.value) catch (Exception e) msgbox('Cannot open image: '+form.LogoImageField.value) endtry endif return // {Linked Method} form.onChange function LogoImageField_onChange try form.logoimage.datasource = 'FILENAME '+trim(this.value) catch (Exception e) msgbox('Cannot open image: '+this.value) endtry return //Form OnClose method // {Linked Method} form.onClose function FORM_onClose // Write new .ini file to disk form.Wiztemp1.active = false class::WriteIni() return true ////////Method: ReadINI ////////////////////////////////////////////// ////////Purpose: Reads in INI file at program startup ///////////////// function ReadINI //Check to see if .ini file exists if not file(this.home+'Webwizard.ini') return // if not, go back endif // attempt to open it nHnd = fOpen(this.home+'Webwizard.ini','R') // If it doesn't open if nHnd < 0 // go back return endif // if it opens successfully, loop through and read // values into form do // check through all matched pairs cStr = trim(fGets(nHnd)) // read in one line from disk file cValue = substr(cStr,at('=',cStr)+1) // Extract value from name pair if cStr = 'FILENAMEFIELD' form.FileNameField.value = cValue elseif cStr = 'URLFIELD' form.UrlField.value = cValue elseif cStr = 'CGIPATHFIELD' form.CGIPathField.value = cValue elseif cStr = 'HTMLPATHFIELD' form.HTMLPathField.value = cValue elseif cStr = 'BACKGROUNDIMAGEFIELD' form.BackGroundImageField.value = cValue elseif cStr = 'BACKGFOUNDCOLORFIELD' form.BackGroundColorField.value = cValue elseif cStr = 'HOMEIMAGEFIELD' form.HomeImageField.value = cValue elseif cStr = 'MAILIMAGEFIELD' form.MailImageField.value = cValue elseif cStr = 'LOGOIMAGEFIELD' form.LogoImageField.Value = cValue elseif cStr = 'MAILADDRESSFIELD' form.MailAddressField.Value = cValue elseif cStr = 'HOMEURLFIELD' form.HomeURLField.Value = cValue endif until fEof(nHnd) fClose(nHnd) if not empty(form.LogoImageField.value) form.LogoImage.DataSource = 'FILENAME '+form.LogoImageField.Value endif if not empty(form.HomeImageField.value) form.HomeImage.DataSource = 'FILENAME '+form.HomeImageField.value endif if not empty(form.MailImageField.value) form.MailImage.DataSource = 'FILENAME '+form.MailImageField.value endif class::UpdateBackgrounds() return ////////////Method: WriteINI ////////////Purpose: Writes reusable field values to .ini file Function WriteIni // If it exists, delete it if file(this.home+'WebWizard.ini') dele file(this.home+'WebWizard.ini') endif // Create new .ini file nHnd = fCreate(this.home+'WebWizard.ini') if nHnd < 0 // if fails return // go back endif fPuts(nHnd,'[PATHS]') fPuts(nHnd,'FILENAMEFIELD='+ form.FileNameField.value) fPuts(nHnd,'URLFIELD='+ form.UrlField.value) fPuts(nHnd,'CGIPATHFIELD='+ form.CGIPathField.value) fPuts(nHnd,'HTMLPATHFIELD='+ form.HTMLPathField.value) fPuts(nHnd,'[APPEARANCE]') fPuts(nHnd,'BACKGROUNDIMAGEFIELD='+ form.BackGroundImageField.value) fPuts(nHnd,'BACKGFOUNDCOLORFIELD='+ form.BackGroundColorField.value) fPuts(nHnd,'HOMEIMAGEFIELD='+ form.HomeImageField.value) fPuts(nHnd,'MAILIMAGEFIELD='+form.MailImageField.value) fPuts(nHnd,'LOGOIMAGEFIELD='+form.LogoImageField.value) fPuts(nHnd,'MAILADDRESSFIELD='+form.MailAddressField.value) fPuts(nHnd,'HOMEURLFIELD='+form.HomeUrlField.value) fClose(nHnd) endclass